pacman::p_load(dplyr, ggplot2, readr, plotly)load("data/olist.rdata")
load("data/Z.rdata")使用ggplot
ggplot(segment, aes(x=log(avgItemsSold), y=avgPrice, col=avgScore)) +
geom_point(aes(size=sqrt(noSellers))) +
geom_text(aes(label=business_segment), size=3)使用ggplotly
g = ggplot(segment, aes(x=log(avgItemsSold), y=avgPrice, col=avgScore)) +
geom_point(aes(size=sqrt(noSellers))) +
geom_text(aes(label=business_segment), size=0.5)
ggplotly(g)